home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Scriptable Authoring.dir / Scripts_46_Select a radio button for the float.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  613 b   |  13 lines
  1. global gFloatReplaceMember, gPathDelimiter, gFloatName, gPuppetList
  2.  
  3. on mouseDown
  4.   PlaySound("RadioButtonClick")
  5.   set firstSprite to the aquaFloat of gPuppetList
  6.   set secondSprite to the cosmosFloat of gPuppetList
  7.   set thirdSprite to the tropicanaFloat of gPuppetList
  8.   set chosenFloat to SelectRadioButton(the clickOn, "Create Cast Radio Button On", "Create Cast Radio Button Off", [firstSprite, secondSprite, thirdSprite])
  9.   importFileInto(gFloatReplaceMember, the pathName & "ScriptAuthor-Floats" & gPathDelimiter & string(chosenFloat & ".PCT"))
  10.   set gFloatName to chosenFloat
  11.   DisplayCurrentFloat()
  12. end
  13.